約 2,105,543 件
https://w.atwiki.jp/ce00582/pages/1520.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgtmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 age = 15 Open "c /nagoya/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop Close #12 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /nagoya/gdata/女子賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1526.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgtmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 age = 15 Open "c /nagoya/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /nagoya/gdata/女子通算賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/240.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgfw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /stream/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgfw(byear) = z2 / z1 Debug.Print byear, avgfw(byear) Next Open "c /stream/gdata/女子通算賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgfw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1463.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgfw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgfw(byear) = z2 / z1 Next Open "c /kirakira/gdata/女子賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgfw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/219.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgfw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /stream/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgfw(byear) = z2 / z1 Next Open "c /stream/gdata/女子賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgfw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/55.html
Private Sub Command1_Click() Dim theta(1 To 2, 15 To 65) As Single Dim m2(-3 To 99, 16 To 65) As Single Dim f2(-3 To 99, 16 To 65) As Single Dim de(1 To 2, 16 To 65) As Single Dim mis(16 To 65, 1 To 50) As Single Dim mos(16 To 65, 1 To 50) As Single Dim mrate(-3 To 99, 16 To 65) As Single Dim frate(-3 To 99, 16 To 65) As Single Dim b(-1 To 10, 0 To 99) As Single Dim c(-1 To 10, 0 To 99) As Single Dim m(-5 To 99, 0 To 99) As Single Dim f(-5 To 99, 0 To 99) As Single Dim newm(-3 To 99, 60 To 65) As Single Dim newf(-3 To 99, 60 To 65) As Single Dim alpha(1 To 2, 15 To 64) As Single Dim beta(1 To 2, 15 To 64) As Single Dim phi(1 To 2, 15 To 64) As Single Dim age As Single Dim car As Single Dim year As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim zero As Single Dim syear As Single Dim rate(-3 To 99) As Single n = -1 s = 0 Open "c /simple/data/死亡(男性).txt" For Input As #1 Do Until EOF(1) Input #1, x b(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #1 n = -1 s = 0 Open "c /simple/data/死亡(女性).txt" For Input As #11 Do Until EOF(11) Input #11, x c(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #11 Open "c /simple/gdata/厚生年金加入率.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 year = a1 age = a2 mrate(year, age) = a3 frate(year, age) = a4 Loop Close #2 Open "c /simple/data/脱退率.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4, a5, a6, a7, a8, a9 age = a1 alpha(1, age) = a3 beta(1, age) = a4 phi(1, age) = a5 alpha(2, age) = a7 beta(2, age) = a8 phi(2, age) = a9 Loop Close #3 Open "c /simple/data/再加入率.txt" For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 theta(1, age) = a2 theta(2, age) = a3 Loop Close #4 Open "c /simple/gdata/将来推計人口.txt" For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 year = a1 age = a2 m(year, age) = a3 f(year, age) = a4 Loop Close #5 Open "c /simple/gdata/厚生年金被保険者.txt" For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 year = a1 age = a2 m2(year, age) = a3 f2(year, age) = a4 Loop Close #6 Dim mktime(-3 To 99) As Single Dim fktime(-3 To 99) As Single Open "c /simple/data/新規裁定年数.txt" For Input As #55 Do Until EOF(55) Input #55, a1, a2, a3 year = a1 mktime(year) = a2 fktime(year) = a3 Loop Close #55 For year = -3 To -1 mktime(year) = 60 fktime(year) = 60 Next For syear = 49 To 99 zero = 1 mis(16, 1) = m2(syear - 49, 16) For age = 17 To 64 year = syear + age - 65 c1 = 1 - alpha(1, age) - beta(1, age) - phi(1, age) c2 = c1 * m2(year - 1, age - 1) mis(age, 1) = (1 - theta(1, age)) * (m2(year, age) - c2) If mis(age, 1) 0 Then mis(age, 1) = 0 If zero 0 Then mis(age, 1) = 0 c3 = 0 For car = 1 To 50 c3 = c3 + mos(age - 1, car) Next c5 = 0 If c3 = 0 Then c5 = 1 If c3 = 0 Then c3 = 1 c4 = (m2(year, age) - c2 - mis(age, 1)) / c3 If c5 = 1 Then c4 = 0 If c4 0 Then c4 = 0 For car = 2 To 50 mis(age, car) = c1 * mis(age - 1, car - 1) + c4 * mos(age - 1, car - 1) Next For car = 1 To 50 mos(age, car) = alpha(1, age) * mis(age - 1, car) + (1 - c4 - beta(1, age)) * mos(age - 1, car) Next z1 = 0 For car = 1 To 50 z1 = z1 + mis(age, car) + mos(age, car) Next zero = m(year, age) - z1 Next z2 = 0 For car = 1 To 50 z2 = z2 + mis(64, car) + mos(64, car) Next z3 = 0 For car = 25 To 50 z3 = z3 + mis(64, car) + mos(64, car) Next rate(syear) = z3 / z2 Debug.Print syear, rate(syear) Next For year = -3 To 49 rate(year) = rate(49) Next For year = -3 To 99 For age = 60 To 65 newm(year, age) = 0 Next Next For year = -3 To 99 age = mktime(year) If age = 0 Then rate(year) = 0 If age = 0 Then age = 65 newm(year, age) = rate(year) * m(year, age) Next Open "c /simple/gdata/男子老齢年金新規裁定者.txt " For Output As #8 For year = -3 To 99 For age = 60 To 65 Write #8, year, age, newm(year, age) Next Next Close #8 For year = -3 To 50 age = mktime(year) If age = 0 Then age = 65 Debug.Print year, newm(year, age) Next End Sub
https://w.atwiki.jp/heavymetaleye101/pages/222.html
ANTHRAX - THE GREATER OF TWO EVILS 2004年発表のセルフカヴァーアルバム。 オフィシャルHPでのファン投票によって選ばれた初期の名曲(1stから5thまで、カヴァー除く)が最新の録音機材によって再録され、ANTHRAX初体験な人にもお勧めなベスト盤としても使える秀作に仕上がった。ジョン・ブッシュの声で蘇る初期の秀曲がなんとも素晴らしい。ジョン・ブッシュのヴォーカルでも初期の曲に自然に溶け込んでいるのでジョン・ブッシュの声で初期の曲が聴きたい!という期待も裏切らない代物だ。DeathRiderのモッシュ用(?)アレンジ、N.F.Lのブラストビート・アレンジ等のアレンジが中々良いが、大したアレンジはそこら辺くらいだと思われるのでかなり自然な仕上がり(ダウン・チューニングとかも無しだし)。 Deathrider Metal Thrashing Mad Caught In A Mosh A.I.R. Among The Living Keep It In The Family Indians Madhouse Panic I Am The Law Belly Of The Beast N.F.L. Be All End All Gung-Ho Anthrax{Japan Bonus}
https://w.atwiki.jp/heavymetaleye101/pages/181.html
SOILWORK - STABBING THE DRAMA 時代を制する孤高のエクストリームメタルサウンドを奏でるSOILWORKの6thアルバム。 シンプルすぎるジャケである。 そんなことはおいといて今回もSOILWORK流ヘヴィメタルの進化論を忠実になぞっていっている作風となっている。モダンなキャッチーさとブルータリティが融合したSOILWORK特有のメロディックメタルを轟かせているのだが、今回では前作までのアプローチから少し変わったように感じた。4thと5th等で見せたメロディアスさ・キャッチーさはやや減退し、ヘヴィなギターサウンドが前面に押し出されることによりブルータリティが表に出たサウンドとなった。ただし音楽的なアプローチのやり方が少し変わっただけであり、SOILWORKのヘヴィメタルスタイル自体にはあまりメスを入れられていない。今回もSOILWORKの進化を著しく堪能できるものとなっており、特に注目したいのがビヨーンのヴォーカルである。SOILWORKのヘヴィメタルスタイルの特徴の一つともいえるクリーンヴォイスパートはますます磨きがかかっており、⑤や⑦ではまさに「絶唱」とも取れるヴォーカルワークが魅力的だ。今作のメイントラックともいえそうな哀愁メロディを盛り込んだ③やグルーヴィな④、そして⑤と⑦等は前作を慣れ親しんだ人にはたまらないものを与えてくれるだろうと思う。そして今作のハイライトといえるのかどうなのか、元々はメロディックデス/デスラッシュをやっていたバンドであり、今作ではそれを意識したのかどうなのか突進デスラッシュナンバーとして仕上がっている⑥と⑩。⑩は強烈なブラストビートが特徴的。新しくドラマーにダークが参戦した今回はドラムサウンドが凄まじくなっており、腹に響くような音圧が特徴的だ。 キーボードは控えめになり、ギターサウンドが押し出された作風になっているこの作品。どちらかというと「ポップ」な感じが強かった前作に比べてブルータルメタルバンドらしくなった感じがするし、オリジナリティは多彩に溢れている作品となっているが、やや最近の新世代メタル勢と被ってしまうところもあるのかもしれない。だが、SOILWORKの進化論を止めることは出来ない。進化し続けるバンドは今作でもとことんこだわり抜いた良作を創り上げている!素晴らしい! 悪かった部分は初回スリップケースからCDがとり辛かったことくらいです。 STABBING THE DRAMA ONE WITH THE FLIES WAEPON OF VANITY THE CRESTFALLEN NERVE STALEMATE DISTANCE OBSERVATION SLAVE FATE IN MOTION BLIND EYE HALO IF POSSIBLE WHEREVER THROUNS MAY GROW KILLED BY IGNITION {BONUS}
https://w.atwiki.jp/ce00582/pages/241.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgtmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /stream/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For car = 1 To 49 wis(byear, age, car) = mw(age) wos(byear, age, car) = mw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = mw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (mw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /stream/gdata/男子通算賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1519.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgtmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 age = 15 Open "c /nagoya/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop Close #12 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For car = 1 To 49 wis(byear, age, car) = mw(age) wos(byear, age, car) = mw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = mw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (mw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /nagoya/gdata/男子賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub